home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Bombardier_PC / BSCRIPTS.CST / 00075_Script_newQTVRMenu < prev    next >
Text File  |  1999-04-25  |  4KB  |  183 lines
  1. -- ⌐ 1998 @radical.media, inc. & Concurrent New Media Group, L.L.C.
  2. -- Developed for Bombardier, Inc.
  3. --
  4. -- All programming developed by: 
  5. -- Robert Fabricant, Valerie Valoueva, Ossi Shaked, 
  6. -- Henry Sauvageot, Chris Howell & Chris Girand
  7. --
  8. -- Use of this code by parties other than @radical.media, inc. or their
  9. --agents 
  10. -- without the express written consent of @radical.media, inc. AND Concurrent 
  11. -- New Media Group, L.L.C. is strictly prohibited.
  12. ------------------------------------------------------
  13. -------*This script is not used in this version of the movie*----------
  14.  
  15. property mySprite, NeutralName, RolloverName, HiliteName, selected,¼
  16.          linkedSprite, linkedNeutralName, linkedRolloverName, linkedHiliteName, frameRange,¼
  17. lastFrame, 
  18.  
  19.  
  20.  
  21. on new me
  22.   global selectedSprite
  23.   
  24.   set mySprite = the spriteNum of me
  25.   set lastFrame = the frame
  26.   set NeutralName = getNeutralName(me, mySprite)
  27.   set RolloverName = NeutralName&"-r"
  28.   set HiliteName = NeutralName&"-hilt"
  29.   
  30.   set linkedSprite = getLinkedSprite(me, NeutralName)
  31.   
  32.   if linkedSprite <> 0 then
  33.     
  34.     set linkedNeutralName = getNeutralName(me, linkedSprite)
  35.     set linkedRolloverName = linkedNeutralName&"-r"
  36.     set linkedHiliteName = linkedNeutralName&"-hilt"
  37.   end if
  38.   
  39.   puppetsprite mySprite, true
  40.   puppetOnPlaneSprite me
  41.   
  42.   if mySprite = selectedSprite then
  43.     
  44.     set the member of sprite mySprite = member  HiliteName
  45.     
  46.     if linkedSprite <> 0 then
  47.       set the member of sprite linkedSprite = member  linkedHiliteName
  48.     end if
  49.     
  50.     set selected = true
  51.     
  52.   else
  53.     set selected = false
  54.   end if
  55.   put NeutralName&&linkedNeutralName
  56.   
  57.   set startFrame = the frame
  58.   set endFrame = marker(1)
  59.   set frameRange = [startFrame, endFrame]
  60.   set the visible of sprite mySprite = true
  61.   
  62.   add the actorList, me
  63. end
  64.  
  65. on getLinkedSprite me, NeutralName
  66.   if NeutralName <> "exterior" then
  67.     if NeutralName contains "Im" then
  68.       set value = mySprite + 1
  69.     else
  70.       set value = mySprite - 1
  71.     end if
  72.   else
  73.     set value = 0
  74.   end if
  75.   return value
  76. end 
  77.  
  78.  
  79. on mouseEnter me
  80.   if not(selected) then
  81.     
  82.     set the member of sprite mySprite = member  RolloverName
  83.     
  84.     if linkedSprite <> 0 then
  85.       set the member of sprite linkedSprite = member  linkedRolloverName
  86.     end if
  87.     
  88.   end if
  89. end
  90.  
  91. on mouseLeave me
  92.   if not(selected) then
  93.     
  94.     set the member of sprite mySprite = member  NeutralName
  95.     
  96.     if linkedSprite <> 0 then
  97.       set the member of sprite linkedSprite = member  linkedNeutralName
  98.     end if
  99.     
  100.   end if
  101. end
  102.  
  103. on mouseUp me
  104.   global selectedSprite
  105.   
  106.   if not(selected) then
  107.     
  108.     sendAllSprites(#QTVRMenuDeselect)
  109.     
  110.     set the member of sprite mySprite = member  HiliteName
  111.     
  112.     if linkedSprite <> 0 then
  113.       set the member of sprite linkedSprite = member  linkedHiliteName
  114.     end if
  115.     
  116.     set selected = true
  117.     set selectedSprite = mySprite
  118.   end if
  119.   pass
  120. end
  121.  
  122. on qtvrPuppetOff me, theFrame
  123.   if getat(frameRange, 2) >= theFrame >= getat(frameRange, 1) then
  124.     nothing -- "inside the behaviour line, as loosely defined here"
  125.   else 
  126.     puppetSprite mySprite, false
  127.     puppetOffPlaneSprite me
  128.   end if
  129. end
  130.  
  131.  
  132. on QTVRMenuDeselect me
  133.   if selected then
  134.     set selected = false
  135.     
  136.     set the member of sprite mySprite = member  NeutralName
  137.     
  138.     if linkedSprite <> 0 then
  139.       set the member of sprite linkedSprite = member  linkedNeutralName
  140.     end if
  141.   end if
  142. end
  143.  
  144. on getNeutralName me,SpriteNum
  145.   
  146.   set aMember = the member of sprite spriteNum
  147.   set Name = the name of member aMember
  148.   if Name contains "-" then
  149.     repeat with i = the Number of Chars of Name down to 1
  150.       if char i of Name <> "-" then 
  151.         delete char i of Name
  152.       else
  153.         delete char i of Name
  154.         exit repeat
  155.       end if
  156.     end repeat
  157.   end if
  158.   
  159.   
  160.   return Name
  161.   
  162. end
  163.  
  164.  
  165.  
  166. on puppetOnPlaneSprite me
  167.   set planeSprite = getSpriteNumFromMemberName ("qtvr plane-neu")
  168.   
  169.   puppetsprite planeSprite, true
  170.   set the member of sprite planeSprite = member "qtvr plane-neu"
  171.   set the visible of sprite planeSprite = true
  172. end
  173.  
  174.  
  175.  
  176. on puppetOffPlaneSprite me
  177.   set planeSprite = getSpriteNumFromMemberName ("qtvr plane-neu")
  178.   
  179.   puppetsprite planeSprite, false
  180.   
  181. end
  182.  
  183.